home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / CONAN11.422 < prev    next >
Text File  |  1993-04-12  |  3KB  |  125 lines
  1. 1CONAN11 3- 45Feedback menu for SysOps
  2. Conan #1 @7304
  3. Wednesday, April 7, 1993  10:27 am [EST]
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name      : CONAN11                 Mod Author: Conan 1@473   ComLink  │
  6. │ Difficulty    : ███▒▒▒▒▒▒▒                                1@7304  IceNet   │
  7. │ WWIV Version  : 4.22                                      1@7300  WWIVWeb  │
  8. │ Mod Date      : 04/07/93                                  1@7307  WWIVNet  │
  9. │ Files Affected: BBS.C                                     1@17325 WWIVLink │ 
  10. │ Description   : Feedback Menu                                              │
  11. └────────────────────────────────────────────────────────────────────────────┘
  12. This is for anyone who can't find a feedback menu floating around out there.
  13. this is the one I use..and it works just dandy!
  14.  
  15. Key:
  16.  
  17. = No Change
  18. + Add
  19. - Delete
  20.  
  21.  
  22.  
  23.  
  24. Open up BBS.C and add this at the very end
  25.  
  26.  
  27. /* START BLOCK READ */
  28. void feedback(void)
  29. {
  30.   static char ch;
  31.   nl();
  32.   nl();
  33.   nl();
  34.   printfile("SYSOP");
  35.   nl();
  36.   prt(1,"Feedback to which?: ");
  37.     ch=onek("Q12");
  38.       switch(ch) {
  39.         case 'A':
  40.           return;
  41.         case 'Q':
  42.           return;
  43.         case '1':
  44.           nl();
  45.           email(1,0,0,0);  /* user number 1.  The first of the four */
  46.           break;           /* numbers indicates the user number.    */
  47.         case '2':
  48.           nl();
  49.           email(2,0,0,0);  /* user number 2  */
  50.           break;
  51.           }
  52.    return;
  53. }
  54. /* END BLOCK READ */
  55.  
  56. If you have more remotes or Co-SysOps you have to add another case:
  57.  
  58. for instance....
  59. =          case '2':
  60. =          nl();
  61. =          email(2,0,0,0);
  62. =          break;
  63. -          }
  64. -        return;
  65. - }
  66. +        case '3':
  67. +        nl();
  68. +        email(214,0,0,0);   /* This will e-mail user number 214 */
  69. +        break;
  70. +        }
  71. +      return;
  72. + }
  73.  
  74.  
  75. Save and close BBS.C and open up FCNS.H and under the last void listed
  76. in /* bbs.c */ add:
  77.  
  78. void feedback(void);
  79.  
  80. Save and close FCNS.H
  81.  
  82. That's all there is to it.  You have to have a file called SYSOP.ANS
  83. or SYSOP.MSG in your C:\BBS\GFILES directory. Here's what my
  84. SYSOP.ANS looks like:
  85.  
  86.  
  87. DC┌┐┌┌┐┌┌┌─
  88. AC┬─ │ │┌┐┌┐│─┬┐
  89. C│┘├│┘├├│ │  ││││││┘A
  90. C│ ││
  91. C│ └│││└└ │  └┴┘└┘││A
  92. C└─┴┘
  93.  
  94. CM   A   N   A   G   E   A
  95. CM   E   N   T
  96.  
  97. C[1] A
  98. CConanC── A
  99. CSystem Operator
  100. C[2]A
  101. C Jimmy Hoffa  A
  102. C── Remote OpA
  103. Cerator
  104. C[Q]A
  105. C Quit
  107.  
  108.  
  109. Problems, comments, suggestions? You can contact me on my board, Perfect
  110. World BBS (703)255-6606 or you can E-Mail me on any of the following nets:
  111.  
  112. 1@473    ComLink
  113. 1@7304   IceNet
  114. 1@7300   WWIVWeb
  115. 1@7307   WWIVNet
  116. 1@17325  WWIVLink
  117.  
  118. 1C7onan
  119. 
  120. 27╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐  5IceNet @7304 3≡ 1WWIVNet @7307
  121. 37║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║  7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐  7WWIVLink @17325 3≡ 6ComLink @473
  122. 47╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨  7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘  17o3-255-66o6 3≡ 2WWIVWeb @73000
  123. 5
  124. 6
  125.